home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DLBUTTCD.PRG < prev    next >
Text File  |  1993-03-25  |  676b  |  22 lines
  1. FUNCTION DLButtCD
  2.   IF TYPE( "aClkObj[1,1]" ) = "N"
  3.     IF .NOT. ( TYPE( "pn_msg" ) = "N" .AND. pn_msg = LBN_SELCHA )
  4.       IF ISBLANK( EF_TEXT_1 )
  5.         nLenEf = LEN( ef_text_1 )
  6.         DO CASE
  7.           CASE CD_COMM_1 = "OK"
  8.             ef_text_1 = LEFT( "'   Ok   '" + SPACE( nLenEf ), nLenEf )
  9.           CASE CD_COMM_1 = "CANCEL"
  10.             ef_text_1 = LEFT( "' Cancel '" + SPACE( nLenEf ), nLenEf )
  11.           CASE CD_COMM_1 = "HELP"
  12.             ef_text_1 = LEFT( "'  Help  '" + SPACE( nLenEf ), nLenEf )
  13.         ENDCASE
  14.         DO Tedit WITH WM_PAINT, EN_KILLFOC, GetId( "EF_TEXT_1" )
  15.       ENDIF
  16.     ENDIF
  17.   ENDIF
  18. RETURN .T.
  19. *-- EOF: DLButtCd
  20.  
  21.  
  22.